Imports ccapps.Footer
Imports CasClientBase
Imports ccapps.persistent.laContractUpdate
Imports ccapps.persistent.batchJobRequest
Imports ccapps.persistent.authorization
Imports ccapps.Util

Namespace Web.page

    Public Class UserHareket
        Inherits [lib].BasePage


#Region " Web Form Designer Generated Code "

        'This call is required by the Web Form Designer.
        <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

        End Sub
        Protected WithEvents ltlAlert As System.Web.UI.WebControls.Literal
        Protected WithEvents Lblok As System.Web.UI.WebControls.Label
        Protected WithEvents Button66 As System.Web.UI.WebControls.Button
        Protected WithEvents Form1 As System.Web.UI.HtmlControls.HtmlForm
        Protected WithEvents proc As System.Web.UI.HtmlControls.HtmlInputHidden
        Protected WithEvents reqno As System.Web.UI.HtmlControls.HtmlInputHidden
        Protected WithEvents jobid As System.Web.UI.HtmlControls.HtmlInputHidden
        Protected WithEvents request_hareket As System.Web.UI.WebControls.DataGrid
        Protected WithEvents HyperLink1 As System.Web.UI.WebControls.HyperLink
        'Protected WithEvents Button1 As System.Web.UI.HtmlControls.HtmlInputButton

        'NOTE: The following placeholder declaration is required by the Web Form Designer.
        'Do not delete or move it.
        Private designerPlaceholderDeclaration As System.Object

        Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
            'CODEGEN: This method call is required by the Web Form Designer
            'Do not modify it using the code editor.
            InitializeComponent()
        End Sub

#End Region

        Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            'Put user code to initialize the page here



            Dim SQL As String
            Dim usr As String
            Dim req As String
            'Dim ds As New myDBConn
            Session.LCID = 1055
            Dim Vproc As String
            Vproc = Me.proc.Value
            Me.proc.Value = ""

            Vproc = "hareket"
            'Dim iptal As String = Request.QueryString("iptal")
            'Dim job As String = Request.QueryString("job")
            Me.PageTitle = "User Hareket"



            'If Me.reqno.Value <> "" Then
            '    Vproc = "iptal"
            '    req = Me.reqno.Value
            '    Me.reqno.Value = ""
            'End If

            'If Me.jobid.Value <> "" Then
            '    job = Me.jobid.Value
            'Else
            '    Me.jobid.Value = job
            'End If



            Select Case Vproc
                Case "hareket"
                    Hareketler()
            End Select

        End Sub

        Sub Hareketler()

            Dim sql As String
            Dim temp As DataTable
            Dim myRow As DataRow

            Me.request_hareket.DataSource = Get_UserHareket()
            Me.request_hareket.DataBind()
            Me.request_hareket.Visible = True


        End Sub

        Sub req_iptal(ByVal req As String, ByVal job As String)

            Dim sql As String
            Dim temp As DataTable
            Dim myRow As DataRow

            RequestFinish(req, "3")
            Me.request_hareket.DataSource = hareketList(Session("user"), job)
            Me.request_hareket.DataBind()
            Me.request_hareket.Visible = True


        End Sub

     

    End Class
End Namespace